﻿using System;
using System.Collections.Generic;
using System.Linq;
using System.Reflection;
using System.Text;
using Oracle.DataAccess.Client;
using WinForms.Framework.Base;
using WinForms.Framework.Core;

namespace WinForms.Framework.Utility
{
    /// <summary>
    /// オラクル接続のクラスです。
    /// </summary>
    public class OrclDBConnection : IDBConnection
    {
        #region Field
        /// <summary>
        /// ログ書き込み機能を実装したオブジェクトです。
        /// </summary>
        private static readonly ILogger _logger = new Logger(typeof(OrclDBConnection));

        /// <summary>
        /// SQL 専用のログ書き込み機能を実装したオブジェクトです。
        /// </summary>
        private static readonly ILogger _loggerSql = new Logger(typeof(OrclDBConnection).FullName + ".SQL");

        /// <summary>
        /// データベースのコネクションオブジェクトです。
        /// </summary>
        private readonly OracleConnection _con;

        /// <summary>
        /// データベースのコマンドです。
        /// </summary>
        private OracleCommand _cmd;

        /// <summary>
        /// データベースのトランザクションです。
        /// </summary>
        private OracleTransaction _tran;
        #endregion

        /// <summary>
        /// OrclDbConnection クラスの新しいインスタンスを初期化します。
        /// </summary>
        /// <param name="connectionString" type="string">Oracle に接続するための接続文字列を設定します。</param>
        public OrclDBConnection(string connectionString)
        {
            _con = new OracleConnection(connectionString);
            _con.Open();

            _cmd = new OracleCommand();
            _cmd.Connection = _con;
            _cmd.BindByName = true;
        }

        /// <summary>
        /// データベースに対して実行する SQL ステートメントまたはストアドプロシージャを取得または設定します。
        /// </summary>
        public string CommandText
        {
            get { return _cmd.CommandText; }
            set { _cmd.CommandText = value; }
        }

        #region Method
        /// <summary>
        /// データベースでトランザクションを開始します。
        /// </summary>
        public void BeginTransaction()
        {
            _tran = _con.BeginTransaction();
        }

        /// <summary>
        /// SQL データベーストランザクションをコミットします。
        /// </summary>
        public void Commit()
        {
            _tran.Commit();
            _tran = null;
        }

        /// <summary>
        /// 保留中の状態からトランザクションをロールバックします。
        /// </summary>
        public void Rollback()
        {
            _tran.Rollback();
            _tran = null;
        }

        /// <summary>
        /// コマンドを初期化します。
        /// </summary>
        public void InitCommand()
        {
            _cmd = new OracleCommand();
            _cmd.Connection = _con;
            _cmd.BindByName = true;
        }

        /// <summary>
        /// パラメーターの名前と値を指定して、Parameter を ParameterCollection に追加します。
        /// </summary>
        /// <param name="name" type="string">パラメーターの名前を設定します。</param>
        /// <param name="value" type="object">パラメーターの値を設定します。</param>
        public void AddParameter(string name, object value)
        {
            if (value == null)
            {
                _cmd.Parameters.Add(new OracleParameter(name, DBNull.Value));
            }
            else
            {
                _cmd.Parameters.Add(new OracleParameter(name, value));

            }
        }

        /// <summary>
        /// BEC に設定されているパラメーターを全て追加します。
        /// </summary>
        /// <param name="parameters" type="BECBase">パラメーターの名前を設定します。</param>
        public void AddParameters(DTOBase parameters)
        {
            PropertyInfo[] properties = parameters.GetType().GetProperties();
            foreach (PropertyInfo property in properties)
                AddParameter(":" + property.Name, property.GetValue(parameters, null));
        }

        /// <summary>
        /// SQL を実行して、結果を BEC に格納します。
        /// </summary>
        /// <typeparam name="T">結果を格納する BEC の型を設定します。</typeparam>
        /// <returns type="List`1">結果を格納した BEC を返します。</returns>
        public List<T> Select<T>() where T : DTOBase
        {
            WriteDebugLog();
            var dto = new List<T>();

            try
            {
                using (var reader = _cmd.ExecuteReader())
                {
                    // レコードが存在しない場合は処理を終了します。
                    if (!reader.HasRows)
                        return dto;

                    // BEC と紐付ける情報として、レコードのカラム名と順番を紐付けた一覧を作成します。
                    var readerFields = new Dictionary<string, int>();
                    for (int index = 0; index < reader.FieldCount; index++)
                        readerFields.Add(reader.GetName(index).ToLower(), index);

                    // レコードを取得します。
                    while (reader.Read())
                    {
                        // BEC とレコードを紐付けます。
                        var instance = Activator.CreateInstance<T>();
                        PropertyInfo[] properties = instance.GetType().GetProperties();
                        foreach (PropertyInfo property in properties)
                        {
                            // レコードのカラム名は小文字で格納されているので、BEC の紐付ける名称も小文字にします。
                            string propertyName = property.Name.ToLower();

                            // BEC に紐付くカラム名がある場合のみ、BEC にレコードを設定します。
                            if (readerFields.ContainsKey(propertyName))
                            {
                                try
                                {
                                    var value = Converter.ChangeType(reader[readerFields[propertyName]], property.PropertyType);
                                    property.SetValue(instance, value, null);
                                }
                                catch (Exception)
                                {
                                    // ignored
                                }
                            }
                        }

                        dto.Add(instance);
                    }
                }

                return dto;
            }
            catch (OracleException e)
            {
                _logger.Error(e);
                WriteErrorLog();
                return null;
            }
        }

        /// <summary>
        /// SQL ステートメントを実行し、影響を受けた行数を返します。
        /// </summary>
        /// <returns type="ReturnCodeDb">データベースの処理結果を定義する定数を返します。</returns>
        public ReturnCodeDB ExecuteNonQuery()
        {
            try
            {
                WriteLog();
                int result = _cmd.ExecuteNonQuery();
                if (result == 0)
                {
                    // update, delete で 0 件の場合は更新対象がなかったことを返します。insert で 0 件はあり得ないため考慮していません。
                    return ReturnCodeDB.NoneUpdate;
                }

                return ReturnCodeDB.Success;
            }
            catch (OracleException e)
            {
                if (e.Number == 1)
                {
                    // ORA-00001: 一意制約に反しています。
                    WriteErrorLog();
                    return ReturnCodeDB.Unique;
                }

                _logger.Error(e);
                WriteErrorLog();
                return ReturnCodeDB.Error;
            }
        }

        /// <summary>
        /// クエリを実行し、そのクエリが .NET Framework のデータ型で返す結果セットの最初の行の最初の列を返します。 余分な列または行は無視されます。
        /// </summary>
        /// <returns type="object">.NET Framework 固有のデータ型の結果セットの最初の行の最初の列を返します。結果セットが空であるか、結果が REF CURSOR の場合、null を返します。</returns>
        public object ExecuteScalar()
        {
            try
            {
                WriteDebugLog();
                return _cmd.ExecuteScalar();
            }
            catch (OracleException e)
            {
                _logger.Error(e);
                WriteErrorLog();
                return null;
            }
        }

        /// <summary>
        /// OrclDbConnection クラスのリソースを解放します。
        /// </summary>
        public void Dispose()
        {
            if (_con != null)
            {
                if (_tran != null)
                {
                    Rollback();
                }

                _con.Close();
            }
        }
        #endregion

        #region Helper
        /// <summary>
        /// SQL ステートメントをログに書き込みます。
        /// </summary>
        private void WriteLog()
        {
            _loggerSql.Info(SqlCommandText);
        }

        /// <summary>
        /// SQL ステートメントをデバッグログに書き込みます。
        /// </summary>
        private void WriteDebugLog()
        {
            _loggerSql.Debug(SqlCommandText);
        }

        /// <summary>
        /// SQL ステートメントをエラーログに書き込みます。
        /// </summary>
        private void WriteErrorLog()
        {
            _loggerSql.Error(SqlCommandText);
        }

        /// <summary>
        /// SQL ステートメントを取得します。
        /// </summary>
        private string SqlCommandText
        {
            get
            {
                var sql = new StringBuilder();
                string[] sqlLines = _cmd.CommandText.Split(new[] { Environment.NewLine }, StringSplitOptions.None);
                foreach (string sqlLine in sqlLines)
                    sql.Append(sqlLine.Trim() + " ");

                // 降順に並び替えることによって、パラメーターの置換を正しく実行することができます。
                foreach (OracleParameter prm in _cmd.Parameters.Cast<OracleParameter>().OrderByDescending(p => p.ParameterName.Length))
                {
                    object value = "null";
                    if (prm.Value != null && prm.Value != DBNull.Value)
                    {
                        switch (prm.OracleDbType)
                        {
                            case OracleDbType.Decimal:
                            case OracleDbType.Double:
                            case OracleDbType.Int16:
                            case OracleDbType.Int32:
                            case OracleDbType.Int64:
                            case OracleDbType.Long:
                            case OracleDbType.Single:
                                value = prm.Value;
                                break;
                            default:
                                value = "'" + prm.Value + "'";
                                break;
                        }
                    }

                    string parameterName = (prm.ParameterName.StartsWith(":")) ? prm.ParameterName : ":" + prm.ParameterName;
                    sql = sql.Replace(parameterName, Convert.ToString(value ?? "null"));
                }

                return sql.ToString();
            }
        }
        #endregion
    }
}
